|
200
|
Disables the control
Dim oGraph as P
oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.AutoFit = .t.
oGraph.Series.Add("<img>1</img>Asia(4600),<img>2</img>Africa(1300),<img>3</img>Europe(747),<img>4</img>North America(579),<img>5</img>South America(433),<img>6</img>Australia/Oceania(42)")
oGraph.Enabled = .f.
oGraph.Legend.Visible = .t.
oGraph.EndUpdate()
|
|
199
|
Show icons
Dim oGraph as P
oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oGraph.AutoFit = .t.
oGraph.Series.Add("<img>1</img>Asia(4600),<img>2</img>Africa(1300),<img>3</img>Europe(747),<img>4</img>North America(579),<img>5</img>South America(433),<img>6</img>Australia/Oceania(42)")
oGraph.SeriesColors = "blue"
oGraph.EndUpdate()
|
|
198
|
Displays the control's version
Dim oGraph as P
oGraph = topparent:CONTROL_ACTIVEX1.activex
? oGraph.Version
|
|
197
|
Changes the control's border (EBN)
Dim oGraph as P
oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.AutoFit = .t.
oGraph.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
oGraph.Appearance = 16777216 '1000000 +
oGraph.Series.Add("Asia(4600),Africa(1300),Europe(747),North America(579),South America(433),Australia/Oceania(42)")
oGraph.SeriesColors = "blue"
oGraph.EndUpdate()
|
|
196
|
Changes the control's border
Dim oGraph as P
oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.AutoFit = .t.
oGraph.Appearance = 1
oGraph.Series.Add("Asia(4600),Africa(1300),Europe(747),North America(579),South America(433),Australia/Oceania(42)")
oGraph.SeriesColors = "blue"
oGraph.EndUpdate()
|
|
195
|
Display the logo on the control's background
Dim oGraph as P
oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.Picture = oGraph.ExecuteTemplate("loadpicture(`c:\exontrol\images\card.png`)")
oGraph.PictureDisplay = 2
oGraph.AutoFit = .t.
oGraph.CategoryAxis.Categories = "China,India,United States,Indonesia,Pakistan,Brazil"
oGraph.Series.Add("1410,1390,331,276,225,213")
oGraph.SeriesColors = "blue"
oGraph.EndUpdate()
|
|
194
|
Changes the control's font
Dim oGraph as P
Dim var_CategoryAxis as P
Dim var_Serie as P
Dim var_StdFont as P
oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
var_StdFont = oGraph.Font
var_StdFont.Name = "Tahoma"
var_StdFont.Size = 12
var_CategoryAxis = oGraph.CategoryAxis
var_CategoryAxis.Categories = "China,India,United States,Indonesia,Pakistan,Brazil"
var_CategoryAxis.MajorGridLines.Color = "lightgray"
var_Serie = oGraph.Series.Add("1410,1390,331,276,225,213")
var_Serie.Type = "Pie"
var_Serie.ShowValue = 7 'exValue + exLine + exPoint
var_Serie.ValueFormat = "`<c>` + category + `<br><c>` + (percent format ``) + `%`"
oGraph.Legend.Visible = .t.
oGraph.EndUpdate()
|
|
193
|
Shows the value-scroll (vertical scroll bar for area-compatible chart types)
Dim oGraph as P
Dim var_Serie as P
oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.ValueSize = 8
oGraph.Template = "Misc(31) = 1.5" // oGraph.Misc(31) = 1.5
oGraph.Data = "C:\Program Files\Exontrol\ExGraph\Sample\Data/msft.csv"
var_Serie = oGraph.Series.Add()
var_Serie.Name = "msft"
var_Serie.Data = "Open,High,Low,Close"
var_Serie.Type = "candle"
oGraph.EndUpdate()
|
|
192
|
No values are shown
Dim oGraph as P
Dim var_CategoryAxis as P
Dim var_Serie as P
oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.Template = "Misc(29) = 0" // oGraph.Misc(29) = 0
var_CategoryAxis = oGraph.CategoryAxis
var_CategoryAxis.Categories = "China,India,United States,Indonesia,Pakistan,Brazil,"
var_CategoryAxis.MajorGridLines.Color = "lightgray"
var_Serie = oGraph.Series.Add("1410,1390,331,276,225,213")
var_Serie.ShowValue = 7 'exValue + exLine + exPoint
var_Serie.ValueFormat = "`<c>` + category + `<br><c>` + value"
oGraph.EndUpdate()
|
|
191
|
No labels on category-axis are shown
Dim oGraph as P
Dim var_CategoryAxis as P
Dim var_Serie as P
oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.ValueSize = 15
oGraph.Template = "Misc(28) = 0" // oGraph.Misc(28) = 0
var_CategoryAxis = oGraph.CategoryAxis
var_CategoryAxis.Categories = "Date"
var_CategoryAxis.Format = "value mid 9 left 2"
oGraph.Data = "C:\Program Files\Exontrol\ExGraph\Sample\Data/msft.csv"
var_Serie = oGraph.Series.Add()
var_Serie.Name = "msft"
var_Serie.Data = "Open,High,Low,Close"
var_Serie.Type = "candle"
oGraph.EndUpdate()
|
|
190
|
No category grid lins are shown
Dim oGraph as P
Dim var_Serie as P
oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.ValueSize = 8
oGraph.Template = "Misc(27) = 0" // oGraph.Misc(27) = 0
oGraph.CategoryAxis.MajorGridLines.Color = "lightgray"
oGraph.Data = "C:\Program Files\Exontrol\ExGraph\Sample\Data/msft.csv"
var_Serie = oGraph.Series.Add()
var_Serie.Name = "msft"
var_Serie.Data = "Open,High,Low,Close"
var_Serie.Type = "candle"
oGraph.EndUpdate()
|
|
189
|
No category ticks are shown
Dim oGraph as P
Dim var_Serie as P
oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.ValueSize = 8
oGraph.Template = "Misc(26) = 0" // oGraph.Misc(26) = 0
oGraph.Data = "C:\Program Files\Exontrol\ExGraph\Sample\Data/msft.csv"
var_Serie = oGraph.Series.Add()
var_Serie.Name = "msft"
var_Serie.Data = "Open,High,Low,Close"
var_Serie.Type = "candle"
oGraph.EndUpdate()
|
|
188
|
Defines the lower and upper margins of the valueSize property (CTRL + Middle button and drag to resize the values)
Dim oGraph as P
Dim var_Serie as P
oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.ValueSize = 8
oGraph.Template = "Misc(25) = `1,12`" // oGraph.Misc(25) = "1,12"
oGraph.Data = "C:\Program Files\Exontrol\ExGraph\Sample\Data/msft.csv"
var_Serie = oGraph.Series.Add()
var_Serie.Name = "msft"
var_Serie.Data = "Open,High,Low,Close"
var_Serie.Type = "candle"
oGraph.EndUpdate()
|
|
187
|
Even though I set the AutoFit property to False, the control still gets resized when I click CTRL + Middle button
Dim oGraph as P
Dim var_CategoryAxis as P
oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.ValueSize = 8
oGraph.Template = "Misc(25) = `0,8`" // oGraph.Misc(25) = "0,8"
var_CategoryAxis = oGraph.CategoryAxis
var_CategoryAxis.Categories = "China,India,United States,Indonesia,Pakistan,Brazil,"
var_CategoryAxis.MajorGridLines.Color = "lightgray"
oGraph.Series.Add("1410,1390,331,276,225,213")
oGraph.EndUpdate()
|
|
186
|
Defines the angle (in degrees) the value-line is rotated by, when the values goes up(positive) or down(negative)
Dim oGraph as P
Dim var_CategoryAxis as P
Dim var_Serie as P
oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.AutoFit = .t.
oGraph.Template = "Misc(23) = 0" // oGraph.Misc(23) = 0
oGraph.Template = "Misc(24) = 90" // oGraph.Misc(24) = 90
var_CategoryAxis = oGraph.CategoryAxis
var_CategoryAxis.Categories = "Green,Black,Red,Lime,Orange,Red"
var_CategoryAxis.MajorGridLines.Color = "lightgray"
var_Serie = oGraph.Series.Add("1410,331,-1390,-276,1225,213")
var_Serie.ShowValue = 7 'exValue + exLine + exPoint
var_Serie.ValueFormat = "`<c>` + category + `<br><c>` + (value format ``)"
var_Serie.Type = "line"
oGraph.EndUpdate()
|
|
185
|
Defines the additional angle (in degrees) the value-line is rotated by
Dim oGraph as P
Dim var_CategoryAxis as P
Dim var_Serie as P
oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.AutoFit = .t.
oGraph.Template = "Misc(22) = 0" // oGraph.Misc(22) = 0
var_CategoryAxis = oGraph.CategoryAxis
var_CategoryAxis.Categories = "China,India,United States,Indonesia,Pakistan,Brazil,"
var_CategoryAxis.MajorGridLines.Color = "lightgray"
var_Serie = oGraph.Series.Add("1410,1390,331,276,225,213")
var_Serie.ShowValue = 7 'exValue + exLine + exPoint
var_Serie.ValueFormat = "`<c>` + category + `<br><c>` + (percent format ``) + `%`"
oGraph.EndUpdate()
|
|
184
|
Defines the distance to extend the value-line by
Dim oGraph as P
Dim var_CategoryAxis as P
Dim var_Serie as P
oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.AutoFit = .t.
oGraph.Template = "Misc(21) = 12" // oGraph.Misc(21) = 12
var_CategoryAxis = oGraph.CategoryAxis
var_CategoryAxis.Categories = "China,India,United States,Indonesia,Pakistan,Brazil,"
var_CategoryAxis.MajorGridLines.Color = "lightgray"
var_Serie = oGraph.Series.Add("1410,1390,331,276,225,213")
var_Serie.ShowValue = 7 'exValue + exLine + exPoint
var_Serie.ValueFormat = "`<c>` + category + `<br><c>` + value"
oGraph.EndUpdate()
|
|
183
|
Defines the distance from the edge of the outer circle where the values are displayed
Dim oGraph as P
Dim var_CategoryAxis as P
Dim var_Serie as P
oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.Template = "Misc(20) = 0" // oGraph.Misc(20) = 0
var_CategoryAxis = oGraph.CategoryAxis
var_CategoryAxis.Categories = "China,India,United States,Indonesia,Pakistan,Brazil"
var_CategoryAxis.MajorGridLines.Color = "lightgray"
var_Serie = oGraph.Series.Add("1410,1390,331,276,225,213")
var_Serie.Type = "Pie"
var_Serie.ShowValue = 7 'exValue + exLine + exPoint
var_Serie.ValueFormat = "`<c>` + category + `<br><c>` + (percent format ``) + `%`"
oGraph.ValuePoint = ",,,,,,,red,black,2"
oGraph.EndUpdate()
|
|
182
|
Defines the distance from the edge of the inner circle where the values are displayed
Dim oGraph as P
Dim var_CategoryAxis as P
Dim var_Serie as P
oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.Template = "Misc(19) = 8" // oGraph.Misc(19) = 8
var_CategoryAxis = oGraph.CategoryAxis
var_CategoryAxis.Categories = "China,India,United States,Indonesia,Pakistan,Brazil"
var_CategoryAxis.MajorGridLines.Color = "lightgray"
var_Serie = oGraph.Series.Add("1410,1390,331,276,225,213")
var_Serie.Type = "Pie"
var_Serie.ShowValue = 7 'exValue + exLine + exPoint
var_Serie.ValueFormat = "`<c>` + category + `<br><c>` + (percent format ``) + `%`"
oGraph.EndUpdate()
|
|
181
|
Defines the padding between rings of the "pie" chart-type
Dim oGraph as P
Dim var_CategoryAxis as P
Dim var_Serie as P
Dim var_Serie1 as P
oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.Template = "Misc(18) = 12" // oGraph.Misc(18) = 12
var_CategoryAxis = oGraph.CategoryAxis
var_CategoryAxis.Categories = "China,India,United States,Indonesia,Pakistan,Brazil"
var_CategoryAxis.MajorGridLines.Color = "lightgray"
var_Serie = oGraph.Series.Add("1410,1390,331,276,225,213")
var_Serie.Type = "Pie"
var_Serie.ShowValue = 7 'exValue + exLine + exPoint
var_Serie.ValueFormat = "`<c>` + category + `<br><c>` + (percent format ``) + `%`"
var_Serie1 = oGraph.Series.Add("141,139,331,276,225,213")
var_Serie1.Type = "Pie"
var_Serie1.ShowValue = 7 'exValue + exLine + exPoint
var_Serie1.ValueFormat = "`<c>` + category + `<br><c>` + (percent format ``) + `%`"
oGraph.EndUpdate()
|
|
180
|
Requests for a new layout once the serie's visible property is changed
Dim oGraph as P
Dim var_CategoryAxis as P
Dim var_Serie as P
oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.Template = "Misc(17) = False" // oGraph.Misc(17) = .f.
var_CategoryAxis = oGraph.CategoryAxis
var_CategoryAxis.Categories = "China,India,United States,Indonesia,Pakistan,Brazil"
var_CategoryAxis.MajorGridLines.Color = "lightgray"
var_Serie = oGraph.Series.Add("1410,1390,331,276,225,213")
var_Serie.Type = "Pie"
var_Serie.ShowValue = 7 'exValue + exLine + exPoint
var_Serie.ValueFormat = "`<c>` + category + `<br><c>` + (percent format ``) + `%`"
oGraph.Legend.Visible = .t.
oGraph.EndUpdate()
|
|
179
|
Prevents rotating the labels
Dim oGraph as P
Dim var_CategoryAxis as P
Dim var_Serie as local
oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.AutoFit = .t.
oGraph.Template = "Misc(16) = False" // oGraph.Misc(16) = .f.
var_CategoryAxis = oGraph.CategoryAxis
var_CategoryAxis.Categories = "China,India,United States,Indonesia,Pakistan,Brazil"
var_CategoryAxis.MajorGridLines.Color = "lightgray"
' oGraph.Series.Add("1410,1390,331,276,225,213").Type = "radarColumn"
var_Serie = oGraph.Series.Add("1410,1390,331,276,225,213")
oGraph.TemplateDef = "dim var_Serie"
oGraph.TemplateDef = var_Serie
oGraph.Template = "var_Serie.Type = `radarColumn`"
oGraph.SeriesColors = "blue"
oGraph.EndUpdate()
|
|
178
|
Defines the angle (in degrees) to start the circular-compatible charts (radial or pie)
Dim oGraph as P
Dim var_CategoryAxis as P
Dim var_Serie as local
oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.AutoFit = .t.
oGraph.Template = "Misc(15) = 0" // oGraph.Misc(15) = 0
var_CategoryAxis = oGraph.CategoryAxis
var_CategoryAxis.Categories = "China,India,United States,Indonesia,Pakistan,Brazil"
var_CategoryAxis.MajorGridLines.Color = "lightgray"
' oGraph.Series.Add("1410,1390,331,276,225,213").Type = "radarColumn"
var_Serie = oGraph.Series.Add("1410,1390,331,276,225,213")
oGraph.TemplateDef = "dim var_Serie"
oGraph.TemplateDef = var_Serie
oGraph.Template = "var_Serie.Type = `radarColumn`"
oGraph.SeriesColors = "blue"
oGraph.EndUpdate()
|
|
177
|
Defines polygonal instead of circular
Dim oGraph as P
Dim var_CategoryAxis as P
Dim var_Serie as local
oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.AutoFit = .t.
oGraph.Template = "Misc(14) = True" // oGraph.Misc(14) = .t.
var_CategoryAxis = oGraph.CategoryAxis
var_CategoryAxis.Categories = "China,India,United States,Indonesia,Pakistan,Brazil"
var_CategoryAxis.MajorGridLines.Color = "lightgray"
' oGraph.Series.Add("1410,1390,331,276,225,213").Type = "radarColumn"
var_Serie = oGraph.Series.Add("1410,1390,331,276,225,213")
oGraph.TemplateDef = "dim var_Serie"
oGraph.TemplateDef = var_Serie
oGraph.Template = "var_Serie.Type = `radarColumn`"
oGraph.SeriesColors = "blue"
oGraph.EndUpdate()
|
|
176
|
Defines the distance (proportionally with the valueSize property) between the first, next and last value of the same category and its border
Dim oGraph as P
oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.AutoFit = .t.
oGraph.Template = "Misc(11) = 0.5" // oGraph.Misc(11) = 0.5
oGraph.Template = "Misc(12) = 0.5" // oGraph.Misc(12) = 0.5
oGraph.CategoryAxis.Categories = "China,India,United States,Indonesia,Pakistan,Brazil"
oGraph.Series.Add("1410,1390,331,276,225,213")
oGraph.Series.Add("9900,3300,980,190,90,8")
oGraph.EndUpdate()
|
|
175
|
Ensures that the marginal labels of the value-axis ensure fit the axis's client-rectangle
Dim oGraph as P
oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.AutoFit = .t.
oGraph.Template = "Misc(13) = True" // oGraph.Misc(13) = .t.
oGraph.CategoryAxis.Categories = "China,India,United States,Indonesia,Pakistan,Brazil"
oGraph.Series.Add("1410,1390,331,276,225,213")
oGraph.SeriesColors = "blue"
oGraph.EndUpdate()
|
|
174
|
Prevents updating the margins/minimum/maximum of the value-axis when the user scrolls the data
Dim oGraph as P
Dim var_Serie as P
oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.ValueSize = 6
oGraph.Template = "Misc(10) = 0" // oGraph.Misc(10) = 0
oGraph.Data = "C:\Program Files\Exontrol\ExGraph\Sample\Data/msft.csv"
var_Serie = oGraph.Series.Add()
var_Serie.Data = "Volume"
var_Serie.Type = "candle"
oGraph.EndUpdate()
|
|
173
|
Defines the padding for labels and title of the value-axis
Dim oGraph as P
oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.AutoFit = .t.
oGraph.Template = "Misc(9) = 16" // oGraph.Misc(9) = 16
oGraph.CategoryAxis.Categories = "China,India,United States,Indonesia,Pakistan,Brazil"
oGraph.Series.Add("1410,1390,331,276,225,213")
oGraph.SeriesColors = "blue"
oGraph.EndUpdate()
|
|
172
|
Defines the size (height for horizontal axis and width for vertical axis) to display the category-axis (line and ticks)
Dim oGraph as P
oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.AutoFit = .t.
oGraph.Template = "Misc(8) = 16" // oGraph.Misc(8) = 16
oGraph.ValueAxis.OffsetLabel = "16,16"
oGraph.CategoryAxis.Categories = "China,India,United States,Indonesia,Pakistan,Brazil"
oGraph.Series.Add("1410,1390,331,276,225,213")
oGraph.SeriesColors = "blue"
oGraph.EndUpdate()
|
|
171
|
Defines the padding for labels and title of the category-axis
Dim oGraph as P
oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.AutoFit = .t.
oGraph.Template = "Misc(7) = 16" // oGraph.Misc(7) = 16
oGraph.CategoryAxis.Categories = "China,India,United States,Indonesia,Pakistan,Brazil"
oGraph.Series.Add("1410,1390,331,276,225,213")
oGraph.SeriesColors = "blue"
oGraph.EndUpdate()
|
|
170
|
Defines the size (height for horizontal axis and width for vertical axis) to display the category-axis (line and ticks)
Dim oGraph as P
Dim var_CategoryAxis as P
oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.AutoFit = .t.
oGraph.Template = "Misc(6) = 16" // oGraph.Misc(6) = 16
var_CategoryAxis = oGraph.CategoryAxis
var_CategoryAxis.Categories = "China,India,United States,Indonesia,Pakistan,Brazil"
var_CategoryAxis.OffsetLabel = "0,-16"
oGraph.Series.Add("1410,1390,331,276,225,213")
oGraph.SeriesColors = "blue"
oGraph.EndUpdate()
|
|
169
|
Defines the minimum/maximum portion (as a proportion of major unit, as a numeric-value between 0 and 1) to extend the axis before the first/after the last value of the serie (minimum, maximum value)
Dim oGraph as P
oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.AutoFit = .t.
oGraph.Template = "Misc(4) = 1" // oGraph.Misc(4) = 1
oGraph.Template = "Misc(5) = 1" // oGraph.Misc(5) = 1
oGraph.CategoryAxis.Categories = "China,India,United States,Indonesia,Pakistan,Brazil"
oGraph.Series.Add("1410,1390,331,276,225,213")
oGraph.SeriesColors = "blue"
oGraph.EndUpdate()
|
|
168
|
Defines the number of digits to appear after the decimal point (as it is)
Dim oGraph as P
Dim var_Serie as local
oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.AutoFit = .t.
oGraph.Template = "Misc(3) = -1" // oGraph.Misc(3) = -1
oGraph.CategoryAxis.Categories = "China,India,United States,Indonesia,Pakistan,Brazil"
' oGraph.Series.Add("1410.1211,1390.8999,331.3421,276.8991,225.0023,213.2231").ShowValue = 7 'exValue + exLine + exPoint
var_Serie = oGraph.Series.Add("1410.1211,1390.8999,331.3421,276.8991,225.0023,213.2231")
oGraph.TemplateDef = "dim var_Serie"
oGraph.TemplateDef = var_Serie
oGraph.Template = "var_Serie.ShowValue = 7"
oGraph.SeriesColors = "blue"
oGraph.EndUpdate()
|
|
167
|
Defines the number of digits to appear after the decimal point
Dim oGraph as P
Dim var_Serie as local
oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.AutoFit = .t.
oGraph.Template = "Misc(3) = 3" // oGraph.Misc(3) = 3
oGraph.CategoryAxis.Categories = "China,India,United States,Indonesia,Pakistan,Brazil"
' oGraph.Series.Add("1410.1211,1390.8999,331.3421,276.8991,225.0023,213.2231").ShowValue = 7 'exValue + exLine + exPoint
var_Serie = oGraph.Series.Add("1410.1211,1390.8999,331.3421,276.8991,225.0023,213.2231")
oGraph.TemplateDef = "dim var_Serie"
oGraph.TemplateDef = var_Serie
oGraph.Template = "var_Serie.ShowValue = 7"
oGraph.SeriesColors = "blue"
oGraph.EndUpdate()
|
|
166
|
Defines the inferior and superior limits of the number of major-unit intervals an axis can display
Dim oGraph as P
oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.AutoFit = .t.
oGraph.Template = "Misc(2) = `2`" // oGraph.Misc(2) = "2"
oGraph.CategoryAxis.Categories = "China,India,United States,Indonesia,Pakistan,Brazil"
oGraph.Series.Add("1410,1390,331,276,225,213")
oGraph.SeriesColors = "blue"
oGraph.EndUpdate()
|
|
165
|
Defines the base major-units alternatives (separated by comma) the control uses to calculate the major-unit for the axes
Dim oGraph as P
oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.AutoFit = .t.
oGraph.Template = "Misc(1) = `5`" // oGraph.Misc(1) = "5"
oGraph.CategoryAxis.Categories = "China,India,United States,Indonesia,Pakistan,Brazil"
oGraph.Series.Add("1410,1390,331,276,225,213")
oGraph.SeriesColors = "blue"
oGraph.EndUpdate()
|
|
164
|
Customizes the tooltips to show on category-axis, when the crosshair intersects the category-axis
Dim oGraph as P
Dim var_Cursor as P
Dim var_Serie as P
Dim var_ValueAxis as P
oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.AutoFit = .t.
var_ValueAxis = oGraph.ValueAxis
var_ValueAxis.Format = "value + `°`"
var_ValueAxis.CursorFormat = "``"
oGraph.CategoryAxis.CursorFormat = "`<b><fgcolor F0F0F0> ` + value + ` `"
var_Serie = oGraph.Series.Add("Jan(5 15), Feb(6 16), Mar(8 18), Apr(10 20), May(13 23), Jun(17 28), Jul(20 32), Aug(20 32), Sep(18 28), Oct(14 23), Nov(9 17), Dec(6 15)","Spain")
var_Serie.Type = "RangeColumn"
var_Serie.CursorFormat = "%V0 +`° - ` + %V1 + `°`"
oGraph.SeriesColors = "green"
var_Cursor = oGraph.Cursor
var_Cursor.Visible = .t.
var_Cursor.SerieTooltipBackColor = "black"
var_Cursor.SerieTooltipForeColor = "rgb(254,254,254)"
var_Cursor.TooltipPad = 4
var_Cursor.ShowCursorValueLine = .f.
oGraph.EndUpdate()
|
|
163
|
Defines the configuration options to show the grid lines and labels between for the overview panel
Dim oGraph as P
Dim var_FormatGridLinesOptions as P
Dim var_ValueAxis as P
oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
var_ValueAxis = oGraph.ValueAxis
var_ValueAxis.Format = "value / 1000000"
var_ValueAxis.MajorUnit = 50000000
var_FormatGridLinesOptions = oGraph.CategoryAxis.OverviewGridLines
var_FormatGridLinesOptions.Format = "`<fgcolor red><b>` + (value left 4)"
var_FormatGridLinesOptions.Color = "red"
var_FormatGridLinesOptions.Style = 1
var_FormatGridLinesOptions.Width = 2
oGraph.Data = "C:\Program Files\Exontrol\ExGraph\Sample\Data/msft.csv"
oGraph.SeriesColors = "blue"
oGraph.Series.Add("Volume")
oGraph.Overview.Visible = .t.
oGraph.EndUpdate()
|
|
162
|
Add additional grid-lines for categories
Dim oGraph as P
Dim var_CategoryAxis as P
Dim var_FormatGridLinesOptions as P
oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.AutoFit = .t.
var_CategoryAxis = oGraph.CategoryAxis
var_CategoryAxis.Categories = "China,India,United States,Indonesia,Pakistan,Brazil,Nigeria,Bangladesh,Russia,Mexico"
var_CategoryAxis.MajorGridLines.Color = "lightgray"
var_FormatGridLinesOptions = var_CategoryAxis.ChartGridLines
var_FormatGridLinesOptions.Format = "value = `Pakistan`"
var_FormatGridLinesOptions.Align = 1024
var_FormatGridLinesOptions.Width = 2
var_FormatGridLinesOptions.Color = "black"
var_FormatGridLinesOptions.Skip = 1
oGraph.Series.Add("1410,1390,331,276,225,213,211,166,145,130")
oGraph.SeriesColors = "lime"
oGraph.EndUpdate()
|
|
161
|
Add grid-lines for categories
Dim oGraph as P
Dim var_CategoryAxis as P
oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.AutoFit = .t.
var_CategoryAxis = oGraph.CategoryAxis
var_CategoryAxis.Categories = "China,India,United States,Indonesia,Pakistan,Brazil,Nigeria,Bangladesh,Russia,Mexico"
var_CategoryAxis.MajorGridLines.Color = "lightgray"
oGraph.Series.Add("1410,1390,331,276,225,213,211,166,145,130")
oGraph.SeriesColors = "lime"
oGraph.EndUpdate()
|
|
160
|
Shifts horizontally or vertically the labels relative to their original positions
Dim oGraph as P
Dim var_CategoryAxis as P
oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.ValueSize = 48
var_CategoryAxis = oGraph.CategoryAxis
var_CategoryAxis.Categories = "China,India,United States,Indonesia,Pakistan,Brazil,Nigeria,Bangladesh,Russia,Mexico"
var_CategoryAxis.OffsetLabel = "0,-22"
var_CategoryAxis.Tfi = "<fgcolor red> bold"
oGraph.Series.Add("1410,1390,331,276,225,213,211,166,145,130")
oGraph.SeriesColors = "lime"
oGraph.EndUpdate()
|
|
159
|
Combines/Merges categories sharing consecutive names according to the Format property
Dim oGraph as P
Dim var_CategoryAxis as P
Dim var_Serie as local
oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.AutoFit = .t.
oGraph.CategoryAxis.Visible = .t.
var_CategoryAxis = oGraph.CategoryAxes.Add("Winter,Winter,Spring,Spring,Spring,Summer,Summer,Summer,Autumn,Autumn,Autumn,Winter")
var_CategoryAxis.Format = "value"
var_CategoryAxis.Split = .t.
var_CategoryAxis.MajorGridLines.Color = "black"
oGraph.ValueAxis.Format = "value + `°`"
' oGraph.Series.Add("Jan(5 15), Feb(6 16), Mar(8 18), Apr(10 20), May(13 23), Jun(17 28), Jul(20 32), Aug(20 32), Sep(18 28), Oct(14 23), Nov(9 17), Dec(6 15)","Spain").Type = "RangeColumn"
var_Serie = oGraph.Series.Add("Jan(5 15), Feb(6 16), Mar(8 18), Apr(10 20), May(13 23), Jun(17 28), Jul(20 32), Aug(20 32), Sep(18 28), Oct(14 23), Nov(9 17), Dec(6 15)","Spain")
oGraph.TemplateDef = "dim var_Serie"
oGraph.TemplateDef = var_Serie
oGraph.Template = "var_Serie.Type = `RangeColumn`"
oGraph.SeriesColors = "lime"
oGraph.EndUpdate()
|
|
158
|
Combines/Merges categories sharing consecutive names according to the Format property
Dim oGraph as P
Dim var_CategoryAxis as P
Dim var_Serie as P
oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.ValueSize = 6
oGraph.Data = "C:\Program Files\Exontrol\ExGraph\Sample\Data/msft.csv"
var_CategoryAxis = oGraph.CategoryAxis
var_CategoryAxis.Categories = "Date"
var_CategoryAxis.Format = "dateS(value left 7) format `MMM`"
var_CategoryAxis.Split = .t.
var_CategoryAxis.MajorGridLines.Color = "lightgray"
var_Serie = oGraph.Series.Add()
var_Serie.Name = "msft"
var_Serie.Data = "Open,High,Low,Close"
var_Serie.Type = "candle"
oGraph.EndUpdate()
|
|
157
|
Defines the category-axis's background color
Dim oGraph as P
Dim var_CategoryAxis as P
Dim var_Legend as P
Dim var_Serie as local
Dim var_Serie1 as local
oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.AutoFit = .t.
oGraph.CategoryAxis.Visible = .t.
var_CategoryAxis = oGraph.CategoryAxes.Add("Winter,Winter,Spring,Spring,Spring,Summer,Summer,Summer,Autumn,Autumn,Autumn,Winter")
var_CategoryAxis.Format = "value"
var_CategoryAxis.Split = .t.
var_CategoryAxis.Tfi = "bold"
var_CategoryAxis.Color = 14474460
oGraph.ValueAxis.Format = "value + `°`"
' oGraph.Series.Add("Jan(5 15), Feb(6 16), Mar(8 18), Apr(10 20), May(13 23), Jun(17 28), Jul(20 32), Aug(20 32), Sep(18 28), Oct(14 23), Nov(9 17), Dec(6 15)","Spain").Type = "RangeColumn"
var_Serie = oGraph.Series.Add("Jan(5 15), Feb(6 16), Mar(8 18), Apr(10 20), May(13 23), Jun(17 28), Jul(20 32), Aug(20 32), Sep(18 28), Oct(14 23), Nov(9 17), Dec(6 15)","Spain")
oGraph.TemplateDef = "dim var_Serie"
oGraph.TemplateDef = var_Serie
oGraph.Template = "var_Serie.Type = `RangeColumn`"
' oGraph.Series.Add("Jan(-4 2), Feb(-3 4), Mar(1 10), Apr(5 16), May(10 21), Jun(13 25), Jul(15 28), Aug(14 27), Sep(10 22), Oct(5 15), Nov(0 7), Dec(-3 3)","Romania").Type = "RangeColumn"
var_Serie1 = oGraph.Series.Add("Jan(-4 2), Feb(-3 4), Mar(1 10), Apr(5 16), May(10 21), Jun(13 25), Jul(15 28), Aug(14 27), Sep(10 22), Oct(5 15), Nov(0 7), Dec(-3 3)","Romania")
oGraph.TemplateDef = "dim var_Serie1"
oGraph.TemplateDef = var_Serie1
oGraph.Template = "var_Serie1.Type = `RangeColumn`"
var_Legend = oGraph.Legend
var_Legend.Visible = .t.
var_Legend.Dock = 3
oGraph.EndUpdate()
|
|
156
|
Defines the color, size, style, skip and step configuration options of the major ticks to be shown on the value-axis
Dim oGraph as P
Dim var_Serie as local
Dim var_TickOptions as P
oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.AutoFit = .t.
oGraph.ValueAxis.Format = "value + `°`"
var_TickOptions = oGraph.CategoryAxis.MajorTicks
var_TickOptions.Color = "red"
var_TickOptions.Width = 4
var_TickOptions.Style = 0
var_TickOptions.Skip = 3
var_TickOptions.Step = 2
' oGraph.Series.Add("Jan(5 15), Feb(6 16), Mar(8 18), Apr(10 20), May(13 23), Jun(17 28), Jul(20 32), Aug(20 32), Sep(18 28), Oct(14 23), Nov(9 17), Dec(6 15)","Spain").Type = "RangeColumn"
var_Serie = oGraph.Series.Add("Jan(5 15), Feb(6 16), Mar(8 18), Apr(10 20), May(13 23), Jun(17 28), Jul(20 32), Aug(20 32), Sep(18 28), Oct(14 23), Nov(9 17), Dec(6 15)","Spain")
oGraph.TemplateDef = "dim var_Serie"
oGraph.TemplateDef = var_Serie
oGraph.Template = "var_Serie.Type = `RangeColumn`"
oGraph.SeriesColors = "green"
oGraph.EndUpdate()
|
|
155
|
Defines the color, size, style, skip and step configuration options of the major grid-lines to be shown by the value-axis on the chart panel
Dim oGraph as P
Dim var_GridLinesOptions as P
Dim var_Serie as local
oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.AutoFit = .t.
oGraph.ValueAxis.Format = "value + `°`"
var_GridLinesOptions = oGraph.CategoryAxis.MajorGridLines
var_GridLinesOptions.Color = "red"
var_GridLinesOptions.Width = 4
var_GridLinesOptions.Style = 0
var_GridLinesOptions.Skip = 3
var_GridLinesOptions.Step = 2
' oGraph.Series.Add("Jan(5 15), Feb(6 16), Mar(8 18), Apr(10 20), May(13 23), Jun(17 28), Jul(20 32), Aug(20 32), Sep(18 28), Oct(14 23), Nov(9 17), Dec(6 15)","Spain").Type = "RangeColumn"
var_Serie = oGraph.Series.Add("Jan(5 15), Feb(6 16), Mar(8 18), Apr(10 20), May(13 23), Jun(17 28), Jul(20 32), Aug(20 32), Sep(18 28), Oct(14 23), Nov(9 17), Dec(6 15)","Spain")
oGraph.TemplateDef = "dim var_Serie"
oGraph.TemplateDef = var_Serie
oGraph.Template = "var_Serie.Type = `RangeColumn`"
oGraph.SeriesColors = "green"
oGraph.EndUpdate()
|
|
154
|
Defines the color, size and style to display the line of the category-axis
Dim oGraph as P
Dim var_LineOptions as P
Dim var_Serie as local
oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.AutoFit = .t.
oGraph.ValueAxis.Format = "value + `°`"
var_LineOptions = oGraph.CategoryAxis.AxisLine
var_LineOptions.Color = "red"
var_LineOptions.Width = 2
var_LineOptions.Style = 0
' oGraph.Series.Add("Jan(5 15), Feb(6 16), Mar(8 18), Apr(10 20), May(13 23), Jun(17 28), Jul(20 32), Aug(20 32), Sep(18 28), Oct(14 23), Nov(9 17), Dec(6 15)","Spain").Type = "RangeColumn"
var_Serie = oGraph.Series.Add("Jan(5 15), Feb(6 16), Mar(8 18), Apr(10 20), May(13 23), Jun(17 28), Jul(20 32), Aug(20 32), Sep(18 28), Oct(14 23), Nov(9 17), Dec(6 15)","Spain")
oGraph.TemplateDef = "dim var_Serie"
oGraph.TemplateDef = var_Serie
oGraph.Template = "var_Serie.Type = `RangeColumn`"
oGraph.SeriesColors = "green"
oGraph.EndUpdate()
|
|
153
|
Specifies the rotation angle (in degrees) for the title and labels of the category-axis, in 'labels,title' format
Dim oGraph as P
Dim var_Serie as local
oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.AutoFit = .t.
oGraph.ValueAxis.Format = "value + `°`"
oGraph.CategoryAxis.Angle = "-90"
' oGraph.Series.Add("Jan(5 15), Feb(6 16), Mar(8 18), Apr(10 20), May(13 23), Jun(17 28), Jul(20 32), Aug(20 32), Sep(18 28), Oct(14 23), Nov(9 17), Dec(6 15)","Spain").Type = "RangeColumn"
var_Serie = oGraph.Series.Add("Jan(5 15), Feb(6 16), Mar(8 18), Apr(10 20), May(13 23), Jun(17 28), Jul(20 32), Aug(20 32), Sep(18 28), Oct(14 23), Nov(9 17), Dec(6 15)","Spain")
oGraph.TemplateDef = "dim var_Serie"
oGraph.TemplateDef = var_Serie
oGraph.Template = "var_Serie.Type = `RangeColumn`"
oGraph.SeriesColors = "green"
oGraph.EndUpdate()
|
|
152
|
Defines the title of the category-axis
Dim oGraph as P
Dim var_Serie as local
oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.AutoFit = .t.
oGraph.ValueAxis.Format = "value + `°`"
oGraph.CategoryAxis.Title = "<b>Range-Temperature"
' oGraph.Series.Add("Jan(5 15), Feb(6 16), Mar(8 18), Apr(10 20), May(13 23), Jun(17 28), Jul(20 32), Aug(20 32), Sep(18 28), Oct(14 23), Nov(9 17), Dec(6 15)","Spain").Type = "RangeColumn"
var_Serie = oGraph.Series.Add("Jan(5 15), Feb(6 16), Mar(8 18), Apr(10 20), May(13 23), Jun(17 28), Jul(20 32), Aug(20 32), Sep(18 28), Oct(14 23), Nov(9 17), Dec(6 15)","Spain")
oGraph.TemplateDef = "dim var_Serie"
oGraph.TemplateDef = var_Serie
oGraph.Template = "var_Serie.Type = `RangeColumn`"
oGraph.SeriesColors = "green"
oGraph.EndUpdate()
|
|
151
|
Changes the font attributes to apply on the title and labels of the category-axis
Dim oGraph as P
Dim var_CategoryAxis as P
oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.AutoFit = .t.
var_CategoryAxis = oGraph.CategoryAxis
var_CategoryAxis.Categories = "China,India,United States,Indonesia,Pakistan,Brazil,Nigeria,Bangladesh,Russia,Mexico"
var_CategoryAxis.Tfi = "<fgcolor red> Tahoma 7 bold"
oGraph.Series.Add("1410,1390,331,276,225,213,211,166,145,130")
oGraph.SeriesColors = "blue"
oGraph.EndUpdate()
|
|
150
|
Defines the direction of the category axis
Dim oGraph as P
Dim var_CategoryAxis as P
oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.AutoFit = .t.
var_CategoryAxis = oGraph.CategoryAxis
var_CategoryAxis.Categories = "China,India,United States,Indonesia,Pakistan,Brazil,Nigeria,Bangladesh,Russia,Mexico"
var_CategoryAxis.Reverse = .t.
oGraph.Series.Add("1410,1390,331,276,225,213,211,166,145,130")
oGraph.SeriesColors = "blue"
oGraph.EndUpdate()
|
|
149
|
Aligns the category-axis to bottom/right or top/left side of the view
Dim oGraph as P
Dim var_CategoryAxis as P
oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.AutoFit = .t.
var_CategoryAxis = oGraph.CategoryAxis
var_CategoryAxis.Categories = "China,India,United States,Indonesia,Pakistan,Brazil,Nigeria,Bangladesh,Russia,Mexico"
var_CategoryAxis.Align = 0
oGraph.Series.Add("1410,1390,331,276,225,213,211,166,145,130")
oGraph.SeriesColors = "blue"
oGraph.EndUpdate()
|
|
148
|
Hides the category axis
Dim oGraph as P
Dim var_CategoryAxis as P
oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.AutoFit = .t.
var_CategoryAxis = oGraph.CategoryAxis
var_CategoryAxis.Categories = "China,India,United States,Indonesia,Pakistan,Brazil,Nigeria,Bangladesh,Russia,Mexico"
var_CategoryAxis.Visible = .f.
oGraph.Series.Add("1410,1390,331,276,225,213,211,166,145,130")
oGraph.SeriesColors = "blue"
oGraph.EndUpdate()
|
|
147
|
Customizes the labels to show on category axis
Dim oGraph as P
Dim var_CategoryAxis as P
oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.AutoFit = .t.
var_CategoryAxis = oGraph.CategoryAxis
var_CategoryAxis.Categories = "China,India,United States,Indonesia,Pakistan,Brazil,Nigeria,Bangladesh,Russia,Mexico"
var_CategoryAxis.Format = "(index < 2 ? `<b>` : `<fgcolor gray>`) + value"
oGraph.Series.Add("1410,1390,331,276,225,213,211,166,145,130")
oGraph.SeriesColors = "blue"
oGraph.EndUpdate()
|
|
146
|
Defines the categories (method 2)
Dim oGraph as P
oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.AutoFit = .t.
oGraph.Series.Add("China(1410),India(1390),United States(331),Indonesia(276),Pakistan(225),Brazil(213),Nigeria(211),Bangladesh(166),Russia(145),Mexico(130)")
oGraph.SeriesColors = "blue"
oGraph.EndUpdate()
|
|
145
|
Defines the categories (method 1)
Dim oGraph as P
oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.AutoFit = .t.
oGraph.CategoryAxis.Categories = "China,India,United States,Indonesia,Pakistan,Brazil,Nigeria,Bangladesh,Russia,Mexico"
oGraph.Series.Add("1410,1390,331,276,225,213,211,166,145,130")
oGraph.SeriesColors = "blue"
oGraph.EndUpdate()
|
|
144
|
Adds multiple category-axes
Dim oGraph as P
Dim var_CategoryAxis as P
Dim var_Legend as P
Dim var_Serie as local
Dim var_Serie1 as local
oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.AutoFit = .t.
oGraph.CategoryAxis.MajorGridLines.Color = "lightgray"
var_CategoryAxis = oGraph.CategoryAxes.Add("Winter,Winter,Spring,Spring,Spring,Summer,Summer,Summer,Autumn,Autumn,Autumn,Winter")
var_CategoryAxis.Format = "value"
var_CategoryAxis.Split = .t.
var_CategoryAxis.Tfi = "bold"
var_CategoryAxis.MajorGridLines.Color = "black"
oGraph.ValueAxis.Format = "value + `°`"
' oGraph.Series.Add("Jan(5 15), Feb(6 16), Mar(8 18), Apr(10 20), May(13 23), Jun(17 28), Jul(20 32), Aug(20 32), Sep(18 28), Oct(14 23), Nov(9 17), Dec(6 15)","Spain").Type = "RangeColumn"
var_Serie = oGraph.Series.Add("Jan(5 15), Feb(6 16), Mar(8 18), Apr(10 20), May(13 23), Jun(17 28), Jul(20 32), Aug(20 32), Sep(18 28), Oct(14 23), Nov(9 17), Dec(6 15)","Spain")
oGraph.TemplateDef = "dim var_Serie"
oGraph.TemplateDef = var_Serie
oGraph.Template = "var_Serie.Type = `RangeColumn`"
' oGraph.Series.Add("Jan(-4 2), Feb(-3 4), Mar(1 10), Apr(5 16), May(10 21), Jun(13 25), Jul(15 28), Aug(14 27), Sep(10 22), Oct(5 15), Nov(0 7), Dec(-3 3)","Romania").Type = "RangeColumn"
var_Serie1 = oGraph.Series.Add("Jan(-4 2), Feb(-3 4), Mar(1 10), Apr(5 16), May(10 21), Jun(13 25), Jul(15 28), Aug(14 27), Sep(10 22), Oct(5 15), Nov(0 7), Dec(-3 3)","Romania")
oGraph.TemplateDef = "dim var_Serie1"
oGraph.TemplateDef = var_Serie1
oGraph.Template = "var_Serie1.Type = `RangeColumn`"
var_Legend = oGraph.Legend
var_Legend.Visible = .t.
var_Legend.Dock = 3
oGraph.EndUpdate()
|
|
143
|
Redefines the major-unit of the value-axis
Dim oGraph as P
Dim var_Serie as P
Dim var_Series as P
oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.AutoFit = .t.
oGraph.ValueAxis.MajorUnit = 1000
oGraph.CategoryAxis.Categories = "Asia,Africa,Europe,North America,Antarctica,South America,Australia/Oceania"
var_Series = oGraph.Series
var_Serie = var_Series.Add("4600,1300,747,579,0,422,42")
var_Serie.Name = "Population"
' var_Serie.Misc(6) = 3
oGraph.TemplateDef = "dim var_Serie"
oGraph.TemplateDef = var_Serie
oGraph.Template = "var_Serie.Misc(6) = 3"
oGraph.EndUpdate()
|
|
142
|
Redefines the margins/limits of the value-axis
Dim oGraph as P
Dim var_Serie as P
Dim var_Series as P
Dim var_ValueAxis as P
oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.AutoFit = .t.
var_ValueAxis = oGraph.ValueAxis
var_ValueAxis.Min = -100
var_ValueAxis.Max = 6000
oGraph.CategoryAxis.Categories = "Asia,Africa,Europe,North America,Antarctica,South America,Australia/Oceania"
var_Series = oGraph.Series
var_Serie = var_Series.Add("4600,1300,747,579,0,422,42")
var_Serie.Name = "Population"
' var_Serie.Misc(6) = 3
oGraph.TemplateDef = "dim var_Serie"
oGraph.TemplateDef = var_Serie
oGraph.Template = "var_Serie.Misc(6) = 3"
oGraph.EndUpdate()
|
|
141
|
Defines the start/end position of the value-axis (relative to full axis)
Dim oGraph as P
Dim var_CategoryAxis as P
Dim var_Serie as P
Dim var_Serie1 as P
Dim var_Series as P
Dim var_ValueAxes as P
Dim var_ValueAxis as local
Dim var_ValueAxis1 as P
oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.AutoFit = .t.
var_ValueAxes = oGraph.ValueAxes
' var_ValueAxes.Add("p").End = 0.75
var_ValueAxis = var_ValueAxes.Add("p")
oGraph.TemplateDef = "dim var_ValueAxis"
oGraph.TemplateDef = var_ValueAxis
oGraph.Template = "var_ValueAxis.End = 0.75"
var_ValueAxis1 = var_ValueAxes.Add("a")
var_ValueAxis1.End = 0.25
var_ValueAxis1.Visible = .f.
var_ValueAxis1.ColorChart = 16119285
var_ValueAxis1.Reverse = .t.
var_ValueAxis1.MajorGridLines.Width = 0
var_CategoryAxis = oGraph.CategoryAxis
var_CategoryAxis.Categories = "Asia,Africa,Europe,North America,Antarctica,South America,Australia/Oceania"
var_CategoryAxis.MajorGridLines.Color = "lightgray"
var_Series = oGraph.Series
var_Serie = var_Series.Add("4600,1300,747,579,0,422,42")
var_Serie.Name = "Population"
var_Serie.Axis = "p"
var_Serie.Type = "Line"
' var_Serie.Misc(6) = 3
oGraph.TemplateDef = "dim var_Serie"
oGraph.TemplateDef = var_Serie
oGraph.Template = "var_Serie.Misc(6) = 3"
var_Serie1 = var_Series.Add("4458,3037,1018,2470,1784,1018,856")
var_Serie1.Name = "Area"
var_Serie1.Axis = "a"
oGraph.Legend.Visible = .t.
oGraph.EndUpdate()
|
|
140
|
Customizes the tooltips to show on value-axis, when the crosshair hovers the chart
Dim oGraph as P
Dim var_Serie as P
Dim var_Series as P
Dim var_ValueAxis as P
oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.AutoFit = .t.
var_ValueAxis = oGraph.ValueAxis
var_ValueAxis.Format = "value format `0`"
var_ValueAxis.CursorFormat = "value format `0`"
oGraph.CategoryAxis.Categories = "Asia,Africa,Europe,North America,Antarctica,South America,Australia/Oceania"
var_Series = oGraph.Series
var_Serie = var_Series.Add("4600,1300,747,579,0,422,42")
var_Serie.Name = "Population"
' var_Serie.Misc(6) = 3
oGraph.TemplateDef = "dim var_Serie"
oGraph.TemplateDef = var_Serie
oGraph.Template = "var_Serie.Misc(6) = 3"
oGraph.Cursor.Visible = .t.
oGraph.EndUpdate()
|
|
139
|
Hides the tooltip that's shown over the value-axis, while cursor hovers the serie
Dim oGraph as P
Dim var_Serie as P
Dim var_Series as P
oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.AutoFit = .t.
oGraph.ValueAxis.CursorFormat = "``"
oGraph.CategoryAxis.Categories = "Asia,Africa,Europe,North America,Antarctica,South America,Australia/Oceania"
var_Series = oGraph.Series
var_Serie = var_Series.Add("4600,1300,747,579,0,422,42")
var_Serie.Name = "Population"
' var_Serie.Misc(6) = 3
oGraph.TemplateDef = "dim var_Serie"
oGraph.TemplateDef = var_Serie
oGraph.Template = "var_Serie.Misc(6) = 3"
oGraph.Cursor.Visible = .t.
oGraph.EndUpdate()
|
|
138
|
Shifts horizontally or vertically the labels relative to their original positions
Dim oGraph as P
Dim var_Serie as P
Dim var_Series as P
oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.AutoFit = .t.
oGraph.ValueAxis.OffsetLabel = "4,8"
oGraph.CategoryAxis.Categories = "Asia,Africa,Europe,North America,Antarctica,South America,Australia/Oceania"
var_Series = oGraph.Series
var_Serie = var_Series.Add("4600,1300,747,579,0,422,42")
var_Serie.Name = "Population"
' var_Serie.Misc(6) = 3
oGraph.TemplateDef = "dim var_Serie"
oGraph.TemplateDef = var_Serie
oGraph.Template = "var_Serie.Misc(6) = 3"
oGraph.EndUpdate()
|
|
137
|
Defines the color to apply on the chart's background right to the value-axis
Dim oGraph as P
Dim var_Serie as P
Dim var_Series as P
oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.AutoFit = .t.
oGraph.ValueAxis.ColorChart = "red"
oGraph.CategoryAxis.Categories = "Asia,Africa,Europe,North America,Antarctica,South America,Australia/Oceania"
var_Series = oGraph.Series
var_Serie = var_Series.Add("4600,1300,747,579,0,422,42")
var_Serie.Name = "Population"
' var_Serie.Misc(6) = 3
oGraph.TemplateDef = "dim var_Serie"
oGraph.TemplateDef = var_Serie
oGraph.Template = "var_Serie.Misc(6) = 3"
oGraph.EndUpdate()
|
|
136
|
Changes the value-axis's background color
Dim oGraph as P
Dim var_Serie as P
Dim var_Series as P
oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.AutoFit = .t.
oGraph.ValueAxis.Color = "red"
oGraph.CategoryAxis.Categories = "Asia,Africa,Europe,North America,Antarctica,South America,Australia/Oceania"
var_Series = oGraph.Series
var_Serie = var_Series.Add("4600,1300,747,579,0,422,42")
var_Serie.Name = "Population"
' var_Serie.Misc(6) = 3
oGraph.TemplateDef = "dim var_Serie"
oGraph.TemplateDef = var_Serie
oGraph.Template = "var_Serie.Misc(6) = 3"
oGraph.EndUpdate()
|
|
135
|
Defines the color, size, style, skip and step configuration options of the major grid-lines to be shown by the value-axis on the chart panel
Dim oGraph as P
Dim var_GridLinesOptions as P
Dim var_Serie as P
Dim var_Series as P
oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.AutoFit = .t.
var_GridLinesOptions = oGraph.ValueAxis.MajorGridLines
var_GridLinesOptions.Color = "red"
var_GridLinesOptions.Width = 4
var_GridLinesOptions.Style = 0
var_GridLinesOptions.Skip = 3
var_GridLinesOptions.Step = 2
oGraph.CategoryAxis.Categories = "Asia,Africa,Europe,North America,Antarctica,South America,Australia/Oceania"
var_Series = oGraph.Series
var_Serie = var_Series.Add("4600,1300,747,579,0,422,42")
var_Serie.Name = "Population"
' var_Serie.Misc(6) = 3
oGraph.TemplateDef = "dim var_Serie"
oGraph.TemplateDef = var_Serie
oGraph.Template = "var_Serie.Misc(6) = 3"
oGraph.EndUpdate()
|
|
134
|
Defines the color, size, style, skip and step configuration options of the major ticks to be shown on the value-axis
Dim oGraph as P
Dim var_Serie as P
Dim var_Series as P
Dim var_TickOptions as P
oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.AutoFit = .t.
var_TickOptions = oGraph.ValueAxis.MajorTicks
var_TickOptions.Color = "red"
var_TickOptions.Width = 4
var_TickOptions.Style = 0
var_TickOptions.Skip = 3
var_TickOptions.Step = 2
oGraph.CategoryAxis.Categories = "Asia,Africa,Europe,North America,Antarctica,South America,Australia/Oceania"
var_Series = oGraph.Series
var_Serie = var_Series.Add("4600,1300,747,579,0,422,42")
var_Serie.Name = "Population"
' var_Serie.Misc(6) = 3
oGraph.TemplateDef = "dim var_Serie"
oGraph.TemplateDef = var_Serie
oGraph.Template = "var_Serie.Misc(6) = 3"
oGraph.EndUpdate()
|
|
133
|
Defines the color, size and style to display the line of the value-axis
Dim oGraph as P
Dim var_LineOptions as P
Dim var_Serie as P
Dim var_Series as P
oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.AutoFit = .t.
var_LineOptions = oGraph.ValueAxis.AxisLine
var_LineOptions.Color = "red"
var_LineOptions.Width = 2
var_LineOptions.Style = 0
oGraph.CategoryAxis.Categories = "Asia,Africa,Europe,North America,Antarctica,South America,Australia/Oceania"
var_Series = oGraph.Series
var_Serie = var_Series.Add("4600,1300,747,579,0,422,42")
var_Serie.Name = "Population"
' var_Serie.Misc(6) = 3
oGraph.TemplateDef = "dim var_Serie"
oGraph.TemplateDef = var_Serie
oGraph.Template = "var_Serie.Misc(6) = 3"
oGraph.EndUpdate()
|
|
132
|
Converts the serie's values to [0,1] range, as percentages (the values area always numbers between 0 and 1)
Dim oGraph as P
Dim var_Serie as P
Dim var_Series as P
Dim var_ValueAxis as P
oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.AutoFit = .t.
var_ValueAxis = oGraph.ValueAxis
var_ValueAxis.AsPercent = .t.
var_ValueAxis.Format = "value * 100 + `%`"
oGraph.CategoryAxis.Categories = "Asia,Africa,Europe,North America,Antarctica,South America,Australia/Oceania"
var_Series = oGraph.Series
var_Serie = var_Series.Add("4600,1300,747,579,0,422,42")
var_Serie.Name = "Population"
' var_Serie.Misc(6) = 3
oGraph.TemplateDef = "dim var_Serie"
oGraph.TemplateDef = var_Serie
oGraph.Template = "var_Serie.Misc(6) = 3"
oGraph.EndUpdate()
|
|
131
|
Defines the rotation angle (in degrees) for the title and labels of the axis, in 'labels,title' format
Dim oGraph as P
Dim var_Serie as P
Dim var_Series as P
Dim var_ValueAxis as P
oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.AutoFit = .t.
var_ValueAxis = oGraph.ValueAxis
var_ValueAxis.Angle = "-90,-90"
var_ValueAxis.Title = "<b>mil"
var_ValueAxis.Format = "value ? value format `0` : ``"
oGraph.CategoryAxis.Categories = "Asia,Africa,Europe,North America,Antarctica,South America,Australia/Oceania"
var_Series = oGraph.Series
var_Serie = var_Series.Add("4600,1300,747,579,0,422,42")
var_Serie.Name = "Population"
' var_Serie.Misc(6) = 3
oGraph.TemplateDef = "dim var_Serie"
oGraph.TemplateDef = var_Serie
oGraph.Template = "var_Serie.Misc(6) = 3"
oGraph.EndUpdate()
|
|
130
|
Defines the title of the value-axis
Dim oGraph as P
Dim var_Serie as P
Dim var_Series as P
oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.AutoFit = .t.
oGraph.ValueAxis.Title = "<b>mil"
oGraph.CategoryAxis.Categories = "Asia,Africa,Europe,North America,Antarctica,South America,Australia/Oceania"
var_Series = oGraph.Series
var_Serie = var_Series.Add("4600,1300,747,579,0,422,42")
var_Serie.Name = "Population"
' var_Serie.Misc(6) = 3
oGraph.TemplateDef = "dim var_Serie"
oGraph.TemplateDef = var_Serie
oGraph.Template = "var_Serie.Misc(6) = 3"
oGraph.EndUpdate()
|
|
129
|
Specifies the font attributes to apply on the title and labels of the value-axis
Dim oGraph as P
Dim var_Serie as P
Dim var_Series as P
oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.AutoFit = .t.
oGraph.ValueAxis.Tfi = "<fgcolor red> Tahoma 10 bold"
oGraph.CategoryAxis.Categories = "Asia,Africa,Europe,North America,Antarctica,South America,Australia/Oceania"
var_Series = oGraph.Series
var_Serie = var_Series.Add("4600,1300,747,579,0,422,42")
var_Serie.Name = "Population"
' var_Serie.Misc(6) = 3
oGraph.TemplateDef = "dim var_Serie"
oGraph.TemplateDef = var_Serie
oGraph.Template = "var_Serie.Misc(6) = 3"
oGraph.EndUpdate()
|
|
128
|
Defines the direction of the value axis
Dim oGraph as P
Dim var_Serie as P
Dim var_Series as P
oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.AutoFit = .t.
oGraph.ValueAxis.Reverse = .t.
oGraph.CategoryAxis.Categories = "Asia,Africa,Europe,North America,Antarctica,South America,Australia/Oceania"
var_Series = oGraph.Series
var_Serie = var_Series.Add("4600,1300,747,579,0,422,42")
var_Serie.Name = "Population"
' var_Serie.Misc(6) = 3
oGraph.TemplateDef = "dim var_Serie"
oGraph.TemplateDef = var_Serie
oGraph.Template = "var_Serie.Misc(6) = 3"
oGraph.EndUpdate()
|
|
127
|
Aligns the value-axis to bottom/right or top/left side of the view
Dim oGraph as P
Dim var_Serie as P
Dim var_Series as P
oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.AutoFit = .t.
oGraph.ValueAxis.Align = 2
oGraph.CategoryAxis.Categories = "Asia,Africa,Europe,North America,Antarctica,South America,Australia/Oceania"
var_Series = oGraph.Series
var_Serie = var_Series.Add("4600,1300,747,579,0,422,42")
var_Serie.Name = "Population"
' var_Serie.Misc(6) = 3
oGraph.TemplateDef = "dim var_Serie"
oGraph.TemplateDef = var_Serie
oGraph.Template = "var_Serie.Misc(6) = 3"
oGraph.EndUpdate()
|
|
126
|
Customizes the labels of the value axis
Dim oGraph as P
Dim var_Serie as P
Dim var_Series as P
oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.AutoFit = .t.
oGraph.ValueAxis.Format = "value ? `<c><b>` + (value format `0`) + `</b><br><c><fgcolor lightgray>mil` : ``"
oGraph.CategoryAxis.Categories = "Asia,Africa,Europe,North America,Antarctica,South America,Australia/Oceania"
var_Series = oGraph.Series
var_Serie = var_Series.Add("4600,1300,747,579,0,422,42")
var_Serie.Name = "Population"
' var_Serie.Misc(6) = 3
oGraph.TemplateDef = "dim var_Serie"
oGraph.TemplateDef = var_Serie
oGraph.Template = "var_Serie.Misc(6) = 3"
oGraph.EndUpdate()
|
|
125
|
Customizes the labels of the value axis
Dim oGraph as P
Dim var_Serie as P
Dim var_Series as P
oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.AutoFit = .t.
oGraph.ValueAxis.Format = "value ? (value format `0`) + ` mil` : ``"
oGraph.CategoryAxis.Categories = "Asia,Africa,Europe,North America,Antarctica,South America,Australia/Oceania"
var_Series = oGraph.Series
var_Serie = var_Series.Add("4600,1300,747,579,0,422,42")
var_Serie.Name = "Population"
' var_Serie.Misc(6) = 3
oGraph.TemplateDef = "dim var_Serie"
oGraph.TemplateDef = var_Serie
oGraph.Template = "var_Serie.Misc(6) = 3"
oGraph.EndUpdate()
|
|
124
|
Hides the value-axis
Dim oGraph as P
Dim var_Serie as P
Dim var_Series as P
oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.AutoFit = .t.
oGraph.ValueAxis.Visible = .f.
oGraph.CategoryAxis.Categories = "Asia,Africa,Europe,North America,Antarctica,South America,Australia/Oceania"
var_Series = oGraph.Series
var_Serie = var_Series.Add("4600,1300,747,579,0,422,42")
var_Serie.Name = "Population"
' var_Serie.Misc(6) = 3
oGraph.TemplateDef = "dim var_Serie"
oGraph.TemplateDef = var_Serie
oGraph.Template = "var_Serie.Misc(6) = 3"
oGraph.EndUpdate()
|
|
123
|
Changes the position of value-axis (click to change the value-axis's position)
' Occurs when the user presses and then releases the left mouse button over the control.
function Click as v ()
Dim var_ValueAxis as local
oGraph = topparent:CONTROL_ACTIVEX1.activex
' oGraph.ValueAxes.Item("a").Position = 0
var_ValueAxis = oGraph.ValueAxes.Item("a")
oGraph.TemplateDef = "dim var_ValueAxis"
oGraph.TemplateDef = var_ValueAxis
oGraph.Template = "var_ValueAxis.Position = 0"
end function
Dim oGraph as P
Dim var_CategoryAxis as P
Dim var_Serie as P
Dim var_Serie1 as P
Dim var_Series as P
Dim var_ValueAxes as P
Dim var_ValueAxis as local
oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.AutoFit = .t.
var_ValueAxes = oGraph.ValueAxes
var_ValueAxes.Add("p")
' var_ValueAxes.Add("a").Color = "teal"
var_ValueAxis = var_ValueAxes.Add("a")
oGraph.TemplateDef = "dim var_ValueAxis"
oGraph.TemplateDef = var_ValueAxis
oGraph.Template = "var_ValueAxis.Color = `teal`"
var_CategoryAxis = oGraph.CategoryAxis
var_CategoryAxis.Categories = "Asia,Africa,Europe,North America,Antarctica,South America,Australia/Oceania"
var_CategoryAxis.MajorGridLines.Color = "lightgray"
var_Series = oGraph.Series
var_Serie = var_Series.Add("4600,1300,747,579,0,422,42")
var_Serie.Name = "Population"
var_Serie.Axis = "p"
var_Serie.Type = "Line"
' var_Serie.Misc(6) = 3
oGraph.TemplateDef = "dim var_Serie"
oGraph.TemplateDef = var_Serie
oGraph.Template = "var_Serie.Misc(6) = 3"
var_Serie1 = var_Series.Add("4458,3037,1018,2470,1784,1018,856")
var_Serie1.Name = "Area"
var_Serie1.Axis = "a"
oGraph.Legend.Visible = .t.
oGraph.EndUpdate()
|
|
122
|
Access the value-axis giving its name (click to change the value-axis's background)
' Occurs when the user presses and then releases the left mouse button over the control.
function Click as v ()
Dim var_ValueAxis as local
oGraph = topparent:CONTROL_ACTIVEX1.activex
' oGraph.ValueAxes.Item("a").ColorChart = 16119285
var_ValueAxis = oGraph.ValueAxes.Item("a")
oGraph.TemplateDef = "dim var_ValueAxis"
oGraph.TemplateDef = var_ValueAxis
oGraph.Template = "var_ValueAxis.ColorChart = 16119285"
oGraph.Refresh()
end function
Dim oGraph as P
Dim var_CategoryAxis as P
Dim var_Serie as P
Dim var_Serie1 as P
Dim var_Series as P
Dim var_ValueAxes as P
Dim var_ValueAxis as local
Dim var_ValueAxis1 as P
oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.AutoFit = .t.
var_ValueAxes = oGraph.ValueAxes
' var_ValueAxes.Add("p").Start = 0.25
var_ValueAxis = var_ValueAxes.Add("p")
oGraph.TemplateDef = "dim var_ValueAxis"
oGraph.TemplateDef = var_ValueAxis
oGraph.Template = "var_ValueAxis.Start = 0.25"
var_ValueAxis1 = var_ValueAxes.Add("a")
var_ValueAxis1.End = 0.25
var_ValueAxis1.Visible = .f.
var_CategoryAxis = oGraph.CategoryAxis
var_CategoryAxis.Categories = "Asia,Africa,Europe,North America,Antarctica,South America,Australia/Oceania"
var_CategoryAxis.MajorGridLines.Color = "lightgray"
var_Series = oGraph.Series
var_Serie = var_Series.Add("4600,1300,747,579,0,422,42")
var_Serie.Name = "Population"
var_Serie.Axis = "p"
var_Serie.Type = "Line"
' var_Serie.Misc(6) = 3
oGraph.TemplateDef = "dim var_Serie"
oGraph.TemplateDef = var_Serie
oGraph.Template = "var_Serie.Misc(6) = 3"
var_Serie1 = var_Series.Add("4458,3037,1018,2470,1784,1018,856")
var_Serie1.Name = "Area"
var_Serie1.Axis = "a"
oGraph.Legend.Visible = .t.
oGraph.EndUpdate()
|
|
121
|
Specifies the name of the value axis to use
Dim oGraph as P
Dim var_CategoryAxis as P
Dim var_Legend as P
Dim var_Serie as P
Dim var_Serie1 as P
Dim var_Series as P
Dim var_ValueAxes as P
Dim var_ValueAxis as P
Dim var_ValueAxis1 as P
oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.ValueSize = 18
var_ValueAxes = oGraph.ValueAxes
var_ValueAxis = var_ValueAxes.Add("pop-ax")
var_ValueAxis.Name = "pop-ax"
var_ValueAxis.Start = 0.25
var_ValueAxis.Align = 0
var_ValueAxis1 = var_ValueAxes.Add("area-ax")
var_ValueAxis1.Name = "area-ax"
var_ValueAxis1.End = 0.25
var_ValueAxis1.Visible = .f.
var_ValueAxis1.ColorChart = 16119285
var_CategoryAxis = oGraph.CategoryAxis
var_CategoryAxis.Categories = "Asia,Africa,Europe,North America,Antarctica,South America,Australia/Oceania"
var_CategoryAxis.MajorGridLines.Color = "lightgray"
var_Series = oGraph.Series
var_Serie = var_Series.Add("4600,1300,747,579,0,422,42")
var_Serie.Name = "Population"
var_Serie.Axis = "pop-ax"
' var_Serie.Misc(6) = 3
oGraph.TemplateDef = "dim var_Serie"
oGraph.TemplateDef = var_Serie
oGraph.Template = "var_Serie.Misc(6) = 3"
var_Serie.Vertical = .t.
var_Serie1 = var_Series.Add("4458,3037,1018,2470,1784,1018,856")
var_Serie1.Name = "Area"
var_Serie1.Axis = "area-ax"
var_Legend = oGraph.Legend
var_Legend.Visible = .t.
var_Legend.Dock = 3
var_Legend.Align = 0
oGraph.EndUpdate()
|
|
120
|
Remove a value-axis (click to remove the first value-axis)
' Occurs when the user presses and then releases the left mouse button over the control.
function Click as v ()
oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.ValueAxes.Remove(0)
end function
Dim oGraph as P
Dim var_CategoryAxis as P
Dim var_Serie as P
Dim var_Serie1 as P
Dim var_Series as P
Dim var_ValueAxes as P
Dim var_ValueAxis as local
Dim var_ValueAxis1 as P
oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.AutoFit = .t.
var_ValueAxes = oGraph.ValueAxes
' var_ValueAxes.Add("p").Start = 0.25
var_ValueAxis = var_ValueAxes.Add("p")
oGraph.TemplateDef = "dim var_ValueAxis"
oGraph.TemplateDef = var_ValueAxis
oGraph.Template = "var_ValueAxis.Start = 0.25"
var_ValueAxis1 = var_ValueAxes.Add("a")
var_ValueAxis1.End = 0.25
var_ValueAxis1.Visible = .f.
var_ValueAxis1.ColorChart = 16119285
var_CategoryAxis = oGraph.CategoryAxis
var_CategoryAxis.Categories = "Asia,Africa,Europe,North America,Antarctica,South America,Australia/Oceania"
var_CategoryAxis.MajorGridLines.Color = "lightgray"
var_Series = oGraph.Series
var_Serie = var_Series.Add("4600,1300,747,579,0,422,42")
var_Serie.Name = "Population"
var_Serie.Axis = "p"
var_Serie.Type = "Line"
' var_Serie.Misc(6) = 3
oGraph.TemplateDef = "dim var_Serie"
oGraph.TemplateDef = var_Serie
oGraph.Template = "var_Serie.Misc(6) = 3"
var_Serie1 = var_Series.Add("4458,3037,1018,2470,1784,1018,856")
var_Serie1.Name = "Area"
var_Serie1.Axis = "a"
oGraph.Legend.Visible = .t.
oGraph.EndUpdate()
|
|
119
|
Remove all value-axes (click to clear the value-axes)
' Occurs when the user presses and then releases the left mouse button over the control.
function Click as v ()
oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.ValueAxes.Clear()
end function
Dim oGraph as P
Dim var_CategoryAxis as P
Dim var_Serie as P
Dim var_Serie1 as P
Dim var_Series as P
Dim var_ValueAxes as P
Dim var_ValueAxis as local
Dim var_ValueAxis1 as P
oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.AutoFit = .t.
var_ValueAxes = oGraph.ValueAxes
' var_ValueAxes.Add("p").Start = 0.25
var_ValueAxis = var_ValueAxes.Add("p")
oGraph.TemplateDef = "dim var_ValueAxis"
oGraph.TemplateDef = var_ValueAxis
oGraph.Template = "var_ValueAxis.Start = 0.25"
var_ValueAxis1 = var_ValueAxes.Add("a")
var_ValueAxis1.End = 0.25
var_ValueAxis1.Visible = .f.
var_ValueAxis1.ColorChart = 16119285
var_CategoryAxis = oGraph.CategoryAxis
var_CategoryAxis.Categories = "Asia,Africa,Europe,North America,Antarctica,South America,Australia/Oceania"
var_CategoryAxis.MajorGridLines.Color = "lightgray"
var_Series = oGraph.Series
var_Serie = var_Series.Add("4600,1300,747,579,0,422,42")
var_Serie.Name = "Population"
var_Serie.Axis = "p"
var_Serie.Type = "Line"
' var_Serie.Misc(6) = 3
oGraph.TemplateDef = "dim var_Serie"
oGraph.TemplateDef = var_Serie
oGraph.Template = "var_Serie.Misc(6) = 3"
var_Serie1 = var_Series.Add("4458,3037,1018,2470,1784,1018,856")
var_Serie1.Name = "Area"
var_Serie1.Axis = "a"
oGraph.Legend.Visible = .t.
oGraph.EndUpdate()
|
|
118
|
Adds multiple value-axes
Dim oGraph as P
Dim var_CategoryAxis as P
Dim var_Serie as P
Dim var_Serie1 as P
Dim var_Series as P
Dim var_ValueAxes as P
Dim var_ValueAxis as local
Dim var_ValueAxis1 as P
oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.AutoFit = .t.
var_ValueAxes = oGraph.ValueAxes
' var_ValueAxes.Add("p").Start = 0.25
var_ValueAxis = var_ValueAxes.Add("p")
oGraph.TemplateDef = "dim var_ValueAxis"
oGraph.TemplateDef = var_ValueAxis
oGraph.Template = "var_ValueAxis.Start = 0.25"
var_ValueAxis1 = var_ValueAxes.Add("a")
var_ValueAxis1.End = 0.25
var_ValueAxis1.Visible = .f.
var_ValueAxis1.ColorChart = 16119285
var_CategoryAxis = oGraph.CategoryAxis
var_CategoryAxis.Categories = "Asia,Africa,Europe,North America,Antarctica,South America,Australia/Oceania"
var_CategoryAxis.MajorGridLines.Color = "lightgray"
var_Series = oGraph.Series
var_Serie = var_Series.Add("4600,1300,747,579,0,422,42")
var_Serie.Name = "Population"
var_Serie.Axis = "p"
var_Serie.Type = "Line"
' var_Serie.Misc(6) = 3
oGraph.TemplateDef = "dim var_Serie"
oGraph.TemplateDef = var_Serie
oGraph.Template = "var_Serie.Misc(6) = 3"
var_Serie1 = var_Series.Add("4458,3037,1018,2470,1784,1018,856")
var_Serie1.Name = "Area"
var_Serie1.Axis = "a"
oGraph.Legend.Visible = .t.
oGraph.EndUpdate()
|
|
117
|
Defines the foreground color to show the visible values within the control's legend
Dim oGraph as P
Dim var_Serie as local
Dim var_Serie1 as P
oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.AutoFit = .t.
oGraph.Template = "Background(208) = 65536" // oGraph.Background(208) = 65536
oGraph.Template = "Background(206) = 65536" // oGraph.Background(206) = 65536
' oGraph.Series.Add("Asia(4600), Africa(1300), Europe(747), North America(579), South America(431), Australia/Oceania(42)").Name = "Area"
var_Serie = oGraph.Series.Add("Asia(4600), Africa(1300), Europe(747), North America(579), South America(431), Australia/Oceania(42)")
oGraph.TemplateDef = "dim var_Serie"
oGraph.TemplateDef = var_Serie
oGraph.Template = "var_Serie.Name = `Area`"
var_Serie1 = oGraph.Series.Add("Asia(4458), Africa(3037), North America(2470), South America(1784), Antarctica(1400), Europe(1018), Australia/Oceania(856)")
var_Serie1.Name = "Population"
var_Serie1.Visible = .f.
oGraph.Legend.Visible = .t.
oGraph.EndUpdate()
|
|
116
|
Defines a different background color to show the visible values within the control's legend
Dim oGraph as P
Dim var_Serie as local
Dim var_Serie1 as P
oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.AutoFit = .t.
oGraph.Template = "Background(204) = 15790320" // oGraph.Background(204) = 15790320
' oGraph.Series.Add("Asia(4600), Africa(1300), Europe(747), North America(579), South America(431), Australia/Oceania(42)").Name = "Area"
var_Serie = oGraph.Series.Add("Asia(4600), Africa(1300), Europe(747), North America(579), South America(431), Australia/Oceania(42)")
oGraph.TemplateDef = "dim var_Serie"
oGraph.TemplateDef = var_Serie
oGraph.Template = "var_Serie.Name = `Area`"
var_Serie1 = oGraph.Series.Add("Asia(4458), Africa(3037), North America(2470), South America(1784), Antarctica(1400), Europe(1018), Australia/Oceania(856)")
var_Serie1.Name = "Population"
var_Serie1.Visible = .f.
oGraph.Legend.Visible = .t.
oGraph.EndUpdate()
|
|
115
|
Defines a different background color to show the hidden values within the control's legend
Dim oGraph as P
Dim var_Serie as local
Dim var_Serie1 as P
oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.AutoFit = .t.
oGraph.Template = "Background(205) = 15790320" // oGraph.Background(205) = 15790320
' oGraph.Series.Add("Asia(4600), Africa(1300), Europe(747), North America(579), South America(431), Australia/Oceania(42)").Name = "Area"
var_Serie = oGraph.Series.Add("Asia(4600), Africa(1300), Europe(747), North America(579), South America(431), Australia/Oceania(42)")
oGraph.TemplateDef = "dim var_Serie"
oGraph.TemplateDef = var_Serie
oGraph.Template = "var_Serie.Name = `Area`"
var_Serie1 = oGraph.Series.Add("Asia(4458), Africa(3037), North America(2470), South America(1784), Antarctica(1400), Europe(1018), Australia/Oceania(856)")
var_Serie1.Name = "Population"
var_Serie1.Visible = .f.
oGraph.Legend.Visible = .t.
oGraph.EndUpdate()
|
|
114
|
Defines the foreground color to show the hidden values within the control's legend
Dim oGraph as P
Dim var_Serie as local
Dim var_Serie1 as P
oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.AutoFit = .t.
oGraph.Template = "Background(209) = 14474460" // oGraph.Background(209) = 14474460
oGraph.Template = "Background(207) = 14474460" // oGraph.Background(207) = 14474460
' oGraph.Series.Add("Asia(4600), Africa(1300), Europe(747), North America(579), South America(431), Australia/Oceania(42)").Name = "Area"
var_Serie = oGraph.Series.Add("Asia(4600), Africa(1300), Europe(747), North America(579), South America(431), Australia/Oceania(42)")
oGraph.TemplateDef = "dim var_Serie"
oGraph.TemplateDef = var_Serie
oGraph.Template = "var_Serie.Name = `Area`"
var_Serie1 = oGraph.Series.Add("Asia(4458), Africa(3037), North America(2470), South America(1784), Antarctica(1400), Europe(1018), Australia/Oceania(856)")
var_Serie1.Name = "Population"
var_Serie1.Visible = .f.
oGraph.Legend.Visible = .t.
oGraph.EndUpdate()
|
|
113
|
Hides a symbol or item of the legend by code
Dim oGraph as P
Dim var_Serie as local
Dim var_Serie1 as P
oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.AutoFit = .t.
' oGraph.Series.Add("Asia(4600), Africa(1300), Europe(747), North America(579), South America(431), Australia/Oceania(42)").Name = "Area"
var_Serie = oGraph.Series.Add("Asia(4600), Africa(1300), Europe(747), North America(579), South America(431), Australia/Oceania(42)")
oGraph.TemplateDef = "dim var_Serie"
oGraph.TemplateDef = var_Serie
oGraph.Template = "var_Serie.Name = `Area`"
var_Serie1 = oGraph.Series.Add("Asia(4458), Africa(3037), North America(2470), South America(1784), Antarctica(1400), Europe(1018), Australia/Oceania(856)")
var_Serie1.Name = "Population"
var_Serie1.Visible = .f.
oGraph.Legend.Visible = .t.
oGraph.EndUpdate()
|
|
112
|
Defines the percentage of transparency for displaying tooltips on series
Dim oGraph as P
oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.Template = "Background(211) = 75" // oGraph.Background(211) = 75
oGraph.AutoFit = .t.
oGraph.Series.Add("Asia(4600), Africa(1300), Europe(747), North America(579), South America(431), Australia/Oceania(42)")
oGraph.Series.Add("Asia(4458), Africa(3037), North America(2470), South America(1784), Antarctica(1400), Europe(1018), Australia/Oceania(856)")
oGraph.Cursor.Visible = .t.
oGraph.EndUpdate()
|
|
111
|
Defines the percentage of transparency for displaying tooltips on axes
Dim oGraph as P
oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.Template = "Background(210) = 75" // oGraph.Background(210) = 75
oGraph.AutoFit = .t.
oGraph.Series.Add("Asia(4600), Africa(1300), Europe(747), North America(579), South America(431), Australia/Oceania(42)")
oGraph.Series.Add("Asia(4458), Africa(3037), North America(2470), South America(1784), Antarctica(1400), Europe(1018), Australia/Oceania(856)")
oGraph.Cursor.Visible = .t.
oGraph.EndUpdate()
|
|
110
|
Specifies the percent of transparency to show the overview-selection (0 indicates opaque, 50% indicates semi-transparent, and 100% indicates fully transparent)
Dim oGraph as P
Dim var_Serie as P
oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
oGraph.Template = "Background(203) = 75" // oGraph.Background(203) = 75
oGraph.ValueSize = 6
oGraph.Data = "C:\Program Files\Exontrol\ExGraph\Sample\Data/aapl.txt"
var_Serie = oGraph.Series.Add()
var_Serie.Name = "aapl"
var_Serie.Data = "AAPL (open),AAPL (high),AAPL (low),AAPL (close)"
var_Serie.Type = "candle"
oGraph.Overview.Visible = .t.
oGraph.EndUpdate()
|
|
109
|
Changes the color to show the overview's selection (EBN color)
Dim oGraph as P
Dim var_Serie as P
oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
oGraph.Template = "Background(202) = 16777216" // oGraph.Background(202) = 16777216
oGraph.ValueSize = 6
oGraph.Data = "C:\Program Files\Exontrol\ExGraph\Sample\Data/aapl.txt"
var_Serie = oGraph.Series.Add()
var_Serie.Name = "aapl"
var_Serie.Data = "AAPL (open),AAPL (high),AAPL (low),AAPL (close)"
var_Serie.Type = "candle"
oGraph.Overview.Visible = .t.
oGraph.EndUpdate()
|
|
108
|
Changes the color to show the overview's selection (solid color)
Dim oGraph as P
Dim var_Serie as P
oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.Template = "Background(202) = 16777471" // oGraph.Background(202) = 16777471
oGraph.ValueSize = 6
oGraph.Data = "C:\Program Files\Exontrol\ExGraph\Sample\Data/aapl.txt"
var_Serie = oGraph.Series.Add()
var_Serie.Name = "aapl"
var_Serie.Data = "AAPL (open),AAPL (high),AAPL (low),AAPL (close)"
var_Serie.Type = "candle"
oGraph.Overview.Visible = .t.
oGraph.EndUpdate()
|
|
107
|
Changes the color to show the overview's selection
Dim oGraph as P
Dim var_Serie as P
oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.Template = "Background(202) = 255" // oGraph.Background(202) = 255
oGraph.ValueSize = 6
oGraph.Data = "C:\Program Files\Exontrol\ExGraph\Sample\Data/aapl.txt"
var_Serie = oGraph.Series.Add()
var_Serie.Name = "aapl"
var_Serie.Data = "AAPL (open),AAPL (high),AAPL (low),AAPL (close)"
var_Serie.Type = "candle"
oGraph.Overview.Visible = .t.
oGraph.EndUpdate()
|
|
106
|
Changes the overview's background
Dim oGraph as P
Dim var_Serie as P
oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.Template = "Background(200) = 15790320" // oGraph.Background(200) = 15790320
oGraph.ValueSize = 6
oGraph.Data = "C:\Program Files\Exontrol\ExGraph\Sample\Data/aapl.txt"
var_Serie = oGraph.Series.Add()
var_Serie.Name = "aapl"
var_Serie.Data = "AAPL (open),AAPL (high),AAPL (low),AAPL (close)"
var_Serie.Type = "candle"
oGraph.Overview.Visible = .t.
oGraph.EndUpdate()
|
|
105
|
Specifies the visual-appearance to display the left/right parts outside of the overview-selection
Dim oGraph as P
Dim var_Serie as P
oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.Template = "Background(200) = 15790320" // oGraph.Background(200) = 15790320
oGraph.ValueSize = 6
oGraph.Data = "C:\Program Files\Exontrol\ExGraph\Sample\Data/aapl.txt"
var_Serie = oGraph.Series.Add()
var_Serie.Name = "aapl"
var_Serie.Data = "AAPL (open),AAPL (high),AAPL (low),AAPL (close)"
var_Serie.Type = "candle"
oGraph.Overview.Visible = .t.
oGraph.EndUpdate()
|
|
104
|
Adds left/ resize-margins of the overview's selection to resize it (EBN)
Dim oGraph as P
Dim var_Serie as P
oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
oGraph.Template = "Background(199) = 16777216" // oGraph.Background(199) = 16777216
oGraph.ValueSize = 6
oGraph.Data = "C:\Program Files\Exontrol\ExGraph\Sample\Data/aapl.txt"
var_Serie = oGraph.Series.Add()
var_Serie.Name = "aapl"
var_Serie.Data = "AAPL (open),AAPL (high),AAPL (low),AAPL (close)"
var_Serie.Type = "candle"
oGraph.Overview.Visible = .t.
oGraph.EndUpdate()
|
|
103
|
Adds left/ resize-margins of the overview's selection to resize it
Dim oGraph as P
Dim var_Serie as P
oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.Template = "Background(199) = 1" // oGraph.Background(199) = 1
oGraph.ValueSize = 6
oGraph.Data = "C:\Program Files\Exontrol\ExGraph\Sample\Data/aapl.txt"
var_Serie = oGraph.Series.Add()
var_Serie.Name = "aapl"
var_Serie.Data = "AAPL (open),AAPL (high),AAPL (low),AAPL (close)"
var_Serie.Type = "candle"
oGraph.Overview.Visible = .t.
oGraph.EndUpdate()
|
|
102
|
Changes the colors to show the value's tooltip
Dim oGraph as P
Dim var_Serie as local
oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.Template = "Background(65) = 1" // oGraph.Background(65) = 1
oGraph.Template = "Background(66) = 16777215" // oGraph.Background(66) = 16777215
oGraph.AutoFit = .t.
' oGraph.Series.Add("Pacific Ocean(16525), Atlantic Ocean(10646), Indian Ocean(7056), Southern Ocean(2033), Arctic Ocean(1406)").ShowValue = 1
var_Serie = oGraph.Series.Add("Pacific Ocean(16525), Atlantic Ocean(10646), Indian Ocean(7056), Southern Ocean(2033), Arctic Ocean(1406)")
oGraph.TemplateDef = "dim var_Serie"
oGraph.TemplateDef = var_Serie
oGraph.Template = "var_Serie.ShowValue = 1"
oGraph.EndUpdate()
|
|
101
|
Changes the visual appearance of the borders of the tooltips
Dim oGraph as P
Dim var_Serie as local
oGraph = topparent:CONTROL_ACTIVEX1.activex
oGraph.BeginUpdate()
oGraph.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
oGraph.Template = "Background(64) = 16777216" // oGraph.Background(64) = 16777216
oGraph.AutoFit = .t.
' oGraph.Series.Add("Pacific Ocean(16525), Atlantic Ocean(10646), Indian Ocean(7056), Southern Ocean(2033), Arctic Ocean(1406)").ShowValue = 1
var_Serie = oGraph.Series.Add("Pacific Ocean(16525), Atlantic Ocean(10646), Indian Ocean(7056), Southern Ocean(2033), Arctic Ocean(1406)")
oGraph.TemplateDef = "dim var_Serie"
oGraph.TemplateDef = var_Serie
oGraph.Template = "var_Serie.ShowValue = 1"
oGraph.EndUpdate()
|